home *** CD-ROM | disk | FTP | other *** search
/ Shock - The Game / Shock The Game.iso / pc / casts / old.cst / 00002_constantHotSpot.ls < prev    next >
Encoding:
Text File  |  1997-04-08  |  1.3 KB  |  60 lines
  1. --property PmySprite, PmyStart, PmyEnd, PmyCell, PmyHandler, PmyLocH, PmyFlag
  2. --
  3. --global 
  4. --
  5. --
  6. --on new me, whichSprite, whichCell, whichHandler, whichLocH
  7. --  
  8. --  set PmySprite = whichSprite
  9. --  puppetsprite PmySprite, 1
  10. --  
  11. --  set PmyStart = whichCell
  12. --  set PmyEnd = PmyStart + 9
  13. --  set PmyCell = PmyStart
  14. --  set PmyLocH = whichLocH
  15. --  
  16. --  set PmyHandler = whichHandler
  17. --  set PmyFlag = 0
  18. --  
  19. --  return me
  20. --  
  21. --end
  22. --
  23. --
  24. --on disappear me
  25. --  set PmyLocH = the loch of sprite PmySprite
  26. --  put pmyloch
  27. --  set the loch of sprite PmySprite = -5000
  28. --end
  29. --
  30. --
  31. --on appear me
  32. --  set the loch of sprite PmySprite = PmyLocH
  33. --end
  34. --
  35. --
  36. --
  37. --on move me
  38. --  
  39. --  if rollover (PmySprite) then
  40. --    set PmyCell = PmyCell + 1
  41. --    if PmyCell > PmyEnd then set PmyCell = PmyStart
  42. --    set the member of sprite PmySprite = member PmyCell of castLib "interface"
  43. --    if PmyHandler > 0 then
  44. --      set PmyFlag = 1
  45. --      set the member of sprite 12 = member PmyHandler of castlib "interface"
  46. --      set the loch of sprite 12 = 348
  47. --    end if
  48. --  else
  49. --    set the member of sprite PmySprite = member PmyStart of castLib "interface"
  50. --    if PmyFlag = 1 then
  51. --      set the loch of sprite 12 = -5000
  52. --      set PmyFlag = 0
  53. --    end if
  54. --  end if
  55. --  
  56. --end
  57. --
  58. --
  59. --
  60.